<?php
function histpreg($id,$idpreg1,$idpreg2){
global $forms2;
global $mypath;
global $id;

if ($id<>"" and $idpreg1<>"" and $idpreg2<>"") {
$SQL="SELECT tabladest,idopcion FROM preguntas WHERE idpreg=$idpreg1";
$info=$forms2->Execute($SQL) or DIE($forms2->ErrorMsg()."<br>$SQL<br>");
$tablahist1=str_replace("td_","th_",$info->Fields("tabladest"));
list($oph1,$oph1rel)=fillopspreg($info->Fields("idopcion"));
$fecarray=Array();
$SQL="SELECT tabladest,idopcion FROM preguntas WHERE idpreg=$idpreg2";
$info=$forms2->Execute($SQL) or DIE($forms2->ErrorMsg()."<br>$SQL<br>");
$tablahist2=str_replace("td_","th_",$info->Fields("tabladest"));
list($oph2,$op2rel)=fillopspreg($info->Fields("idopcion"));

//---------------cargo las fechas para 1
$SQL="SELECT $tablahist1.fecha,$tablahist1.valor,$tablahist1.iduser,preguntas.*,users.nombre,users.apellido 
      FROM $tablahist1 INNER JOIN preguntas ON $tablahist1.idpreg=preguntas.idpreg,users 
	  WHERE $tablahist1.iduser=users.idusuario AND $tablahist1.id=$id AND $tablahist1.idpreg=$idpreg1 
	  ORDER BY $tablahist1.fecha DESC";
$preguntas=$forms2->Execute($SQL) or DIE ($forms2->ErrorMsg()."<br>$SQL<br>".__FILE__.":line:".__LINE__);
while ($arr=$preguntas->FetchRow()){
$fecharray[$arr["fecha"]]="<font color='#003399'>".$oph1[$arr["valor"]]."</font>";
}

//---------------cargo las fechas para 2
$SQL="SELECT $tablahist2.fecha,$tablahist2.valor,$tablahist2.iduser,preguntas.*,users.nombre,users.apellido 
      FROM $tablahist2 INNER JOIN preguntas ON $tablahist2.idpreg=preguntas.idpreg,users 
	  WHERE $tablahist2.iduser=users.idusuario AND $tablahist2.id=$id AND $tablahist2.idpreg=$idpreg2 
	  ORDER BY $tablahist2.fecha DESC";
$preguntas=$forms2->Execute($SQL) or DIE ($forms2->ErrorMsg()."<br>$SQL<br>".__FILE__.":line:".__LINE__);
while ($arr=$preguntas->FetchRow()){

$fecharray[$arr["fecha"]]="&nbsp;".$oph1[$op2rel[$arr["valor"]]]."->".$oph2[$arr["valor"]];
}
if (count($fecharray)>0){
ksort($fecharray);
reset($fecharray);

$val.= "<table cellspacing=0 cellpadding=2 border=0 >";
$val.= "<tr bgcolor=#E6E6E6><td><font face=arial size=2>Fecha</font></td><td><font face=arial size=2>Estado</font></td><td></td></tr>";
	foreach ($fecharray as $key=>$value){
	$val.= "<tr>";
	$val.= "<td><font face=arial size=2>".date("d/m/y H:i",strtotime($key))."</font></td>";
	$val.= "<td><font face=arial size=2>";
	$val.= $value;
	$val.= "&nbsp;</td></font>";
	$val.= "</tr>";
		}
$val.= "</table>";
}
}
echo $val;
return true;
}

function histpreglist($id,$idpreg1,$idpreg2){
global $forms2;
global $mypath;
if ($id<>"" and $idpreg1<>"" and $idpreg2<>"") {
//---primero comienzo con el 2do nivel-----------------------------
$SQL="SELECT tabladest FROM preguntas WHERE idpreg=$idpreg2";
$info=$forms2->Execute($SQL) or DIE($forms2->ErrorMsg()."<br>$SQL<br>");
$tablahist=str_replace("td_","th_",$info->Fields("tabladest"));
///saco los datos de idpreg2 para las opciones
$SQL="SELECT * FROM preguntas WHERE idpreg=$idpreg1";
$mypreg1=$forms2->Execute($SQL) or DIE ($forms2->ErrorMsg()."<br>$SQL<br>".__FILE__.":line:".__LINE__);
$idop1=$mypreg1->Fields("idopcion");
$SQL="SELECT date_format($tablahist.fecha,'%Y-%m-%d') as fecha,$tablahist.valor,$tablahist.iduser,preguntas.*,users.nombre,users.apellido 
      FROM $tablahist INNER JOIN preguntas ON $tablahist.idpreg=preguntas.idpreg,users 
	  WHERE $tablahist.iduser=users.idusuario AND $tablahist.id=$id AND $tablahist.idpreg=$idpreg2 
	  ORDER BY $tablahist.fecha DESC";
$preguntas=$forms2->Execute($SQL) or DIE ($forms2->ErrorMsg()."<br>$SQL<br>".__FILE__.":line:".__LINE__);
  	while (!$preguntas->EOF){
	  $valor=$preguntas->fields("valor");
	  $tipo=$preguntas->Fields("idtipo"); 
      $idform=$preguntas->Fields("idform");
	  $ancho=$preguntas->Fields("ancho");
	  $parametro1=$preguntas->Fields("param1");
	  $parametro2=$preguntas->Fields("param2");
	  $nombrecontrol=$preguntas->Fields("nombrecontrol");
	  $descripcion=$preguntas->Fields("descripcion");
	  $idpreg=$preguntas->Fields("idpreg");
	  $idop=$preguntas->Fields("idopcion");
	$SQL="SELECT idrel FROM tablaopciones WHERE idopcion=$idop AND valor='$valor'";
	$myrel=$forms2->Execute($SQL) or DIE ($forms2->ErrorMsg()."<br>$SQL<br>".__FILE__.":line:".__LINE__);
	$retstr.=$preguntas->Fields("fecha")." - ";
	$retstr.=veropciones($idop1,$myrel->Fields("idrel"))."->";
    $retstr.=veropciones($idop,$valor);
	$retstr.=" (".$preguntas->Fields("nombre")." ".$preguntas->Fields("apellido").") ";
	$preguntas->MoveNext();
	}
}
return $retstr;
}
?>